﻿Public Class Mensagem
    Private Codigo As Integer
    Private Descricao As String
    Public Property Instrucao() As String
    Public ReadOnly Property Completa() As String
        Get
            If Codigo > 0 Then
                Return String.Format("{0}: {1}", Codigo, Descricao)
            Else
                Return String.Format("{0}", Descricao)
            End If
        End Get
    End Property


    Public Sub New(ByVal i_Codigo As Integer, ByVal s_Descricao As String)
        Codigo = i_Codigo
        Descricao = s_Descricao
    End Sub
    Public Sub New(ByVal i_Codigo As Integer, ByVal s_Descricao As String, ByVal s_Instrucao As String)
        Me.New(i_Codigo, s_Descricao)
        Instrucao = s_Instrucao
    End Sub
End Class